home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPLE.BAT < prev    next >
DOS Batch File  |  1995-04-05  |  2KB  |  77 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   EXAMPL number
  5.   REM  %2   XMPDAT number
  6.   REM  %3   XMPDAT extension
  7.   REM  %4   [P]lain, [T]race, [L]ookup menu
  8.   REM
  9.   REM  NOTE: Numbers must be two digits long
  10.  
  11.   IF (%4) == () START
  12.  
  13. :MAIN
  14.   GO-MENU EXAMPLE%4.MNU 1%1 GO-MENU.SAV
  15.   IF ERRORLEVEL 10 GOTO QUIT
  16.   IF ERRORLEVEL  6 GOTO TRACE
  17.   IF ERRORLEVEL  5 GOTO OUTPUT
  18.   IF ERRORLEVEL  4 GOTO RUN  
  19.   IF ERRORLEVEL  3 GOTO POMFILE
  20.   IF ERRORLEVEL  2 GOTO INPUT
  21.   IF ERRORLEVEL  1 GOTO DOCU
  22.  
  23. :TRACE
  24.   IF (%4) == (L) GOTO SHOWLOOK
  25.   IF EXIST POM.TRC GOTO EOCKTRC
  26.   SHOWTEXT CKTRC
  27.   GOTO MAIN
  28. :EOCKTRC
  29.   CALL VIEW POM.TRC
  30.   GOTO MAIN
  31.  
  32. :SHOWLOOK
  33.   CALL VIEW EXAMPL%1.TBL
  34.   GOTO MAIN
  35.  
  36. :OUTPUT
  37.   IF EXIST EXAMPL%1.LST GOTO EOCKLST
  38.   SHOWTEXT CKLST
  39.   GOTO MAIN
  40. :EOCKLST
  41.   CALL VIEW EXAMPL%1.LST
  42.   GOTO MAIN
  43.  
  44. :RUN  
  45.   IF (%1) == (03) SET POM=HDRCNTR/TEST
  46.   IF (%1) == (04) SET POM=descrip/price
  47.   IF (%1) == (07) SET POM=ALL
  48.   POM EXAMPL%1.POM XMPDAT%2.%3 EXAMPL%1.LST
  49.   SET POM=
  50.   IF ERRORLEVEL 1 PAUSE
  51.   GOTO MAIN
  52. :POMFILE
  53.   CALL VIEW EXAMPL%1.POM
  54.   GOTO MAIN
  55.  
  56. :INPUT
  57.   IF NOT (%1) == (05) GOTO EOWARN5
  58.   SHOWTEXT WARN5
  59. :EOWARN5
  60.   IF NOT (%3) == (DBF) GOTO EOWRNDBF
  61.   SHOWTEXT WRNDBF
  62. :EOWRNDBF
  63.   CALL VIEW XMPDAT%2.%3
  64.   GOTO MAIN
  65.  
  66. :DOCU
  67.   SHOWTEXT EXAMPL%1.STX
  68.   GOTO MAIN
  69.  
  70. :QUIT
  71.   IF NOT (%NODEL%) == () GOTO DONE
  72.   IF EXIST EXAMPL%1.LST DEL EXAMPL%1.LST
  73.   IF NOT (%4) == (T) GOTO DONE
  74.   IF EXIST POM.TRC DEL POM.TRC
  75. :DONE
  76.   START @ EXAMPLES
  77.